home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / N-New Submissions / (n)n2.d64 / story setup (.txt) < prev    next >
Commodore BASIC  |  2007-02-24  |  4KB  |  168 lines
  1. 1 REM**PERSONALIZED STORY SETUP**
  2. 2 REM**RICK ANDING   ATLANTA**
  3. 3 GOSUB 9000
  4. 4 POKE 53280,6:POKE 53281,6:POKE 646,3
  5. 5 FOR X=1 TO 1000:NEXT
  6. 6 PRINT
  7. 8 INPUT "IS THE STORY CHILD MALE OR FEMALE";SX$
  8. 10 INPUT "FIRST NAME";NA$
  9. 20 INPUT "LAST NAME";NB$
  10. 30 INPUT "STREET NUMBER";S
  11. 40 INPUT "STREET NAME";SN$
  12. 50 INPUT "CITY";CI$
  13. 60 INPUT "STATE";ST$
  14. 70 INPUT "NUMBER OF BROTHERS";B
  15. 75 IF B=0 GOTO 120
  16. 80 FOR X=1 TO B
  17. 85 INPUT"ONE BROTHER'S FIRST NAME";BN$(X)
  18. 90 NEXT X
  19. 100 INPUT "NUMBER OF SISTERS";Z
  20. 105 IF Z=0 GOTO 125
  21. 110 FOR X=1 TO Z
  22. 115 INPUT"ONE SISTER'S FIRST NAME";ZN$(X)
  23. 120 NEXT X
  24. 125 INPUT "NUMBER OF DOG OR CAT PETS";P
  25. 130 IF P=0 GOTO 170
  26. 140 FOR X=1 TO P
  27. 150 INPUT "ONE PET'S NAME";PN$(X)
  28. 160 NEXT X
  29. 170 INPUT "#1 FRIEND/PLAYMATE'S WHOLE NAME";FA$
  30. 175 INPUT"IS FRIEND #1 MALE OR FEMALE";AG$
  31. 180 INPUT "#2 FRIEND/PLAYMATE'S WHOLE NAME";FB$
  32. 185 INPUT"IS FRIEND #2 MALE OR FEMALE";BG$
  33. 190 INPUT "#3 FRIEND/PLAYMATE'S WHOLE NAME";FC$
  34. 195 INPUT"IS FRIEND #3 MALE OR FEMALE";CG$
  35. 198 INPUT "STORY CHILD'S MOST LOVED FOOD";LF$
  36. 200 INPUT "STORY CHILD'S MOST HATED FOOD";HF$
  37. 205 FOR X=1 TO 2000:NEXT X:PRINT"[147]"
  38. 215 PRINT
  39. 220 PRINT "CHILD'S GENDER  ";SX$
  40. 225 PRINT "FIRST NAME      ";NA$
  41. 230 PRINT "LAST NAME       ";NB$
  42. 235 PRINT "STREET NUMBER  ";S
  43. 240 PRINT "STREET NAME     ";SN$
  44. 245 PRINT "CITY            ";CI$
  45. 250 PRINT "STATE           ";ST$
  46. 260 IF B=0 GOTO 280
  47. 265 FOR X=1 TO B
  48. 270 PRINT "BROTHER'S NAME  ";BN$(X)
  49. 275 NEXT X
  50. 280 IF Z=0 GOTO 300
  51. 285 FOR X=1 TO Z
  52. 290 PRINT "SISTER'S NAME   ";ZN$(X)
  53. 295 NEXT X
  54. 300 IF P=0 GOTO 340
  55. 310 FOR X=1 TO P
  56. 320 PRINT "PET'S NAME      ";PN$(X)
  57. 330 NEXT X
  58. 340 PRINT "#1 FRIEND'S NAME   ";FA$
  59. 345 PRINT "          GENDER   ";AG$
  60. 350 PRINT "#2 FRIEND'S NAME   ";FB$
  61. 355 PRINT "          GENDER   ";BG$
  62. 360 PRINT "#3 FRIEND'S NAME   ";FC$
  63. 365 PRINT "          GENDER   ";CG$
  64. 370 PRINT "MOST LOVED FOOD    ";LF$
  65. 375 PRINT "MOST HATED FOOD    ";HF$
  66. 378 PRINT:INPUT"IS INFORMATION CORRECT";A$
  67. 380 IF A$="NO" OR A$="N" GOTO 5
  68. 390 FOR X=1 TO 1000:NEXT:PRINT
  69. 400 IF SX$="MALE" OR SX$="M" THEN G=1
  70. 410 IF SX$="FEMALE" OR SX$="F" THEN G=2
  71. 412 RF$(1)=" KING "
  72. 414 RF$(2)=" QUEEN "
  73. 416 HE$(1)="HE"
  74. 418 HE$(2)="SHE"
  75. 420 HM$(1)="HIM"
  76. 422 HM$(2)="HER"
  77. 424 HS$(1)="HIS"
  78. 426 HS$(2)="HER"
  79. 430 IF AG$="MALE" OR SX$="M" THEN H=1
  80. 432 IF AG$="FEMALE" OR SX$="F" THEN H=2
  81. 434 IF BG$="MALE" OR SX$="M" THEN I=1
  82. 436 IF BG$="FEMALE" OR SX$="F" THEN I=2
  83. 438 IF CG$="MALE" OR SX$="M" THEN J=1
  84. 440 IF CG$="FEMALE" OR SX$="F" THEN J=2
  85. 442 AA$(1)=" SIR "
  86. 444 AA$(2)=" LADY "
  87. 482 PRINT "AT THIS POINT MAKE SURE YOUR PRINTER IS TURNED ON ";
  88. 484 PRINT " AND PROPERLY HOOKED UP TO THECOMPUTER
  89. 486 [129] X[178]1 [164] 4000:[130]
  90. 488 [153]:[153]:[153]:[153]:[153]
  91. 490 [153]"PRESS THE SPACE BAR TO BEGIN PRINTING   THE STORY"
  92. 492 [161] RN$
  93. 494 [139] RN$[178]"" [167] [137] 492
  94. 496 [139] RN$[179][177][199](32) [167] [137] 492
  95. 498 [159]3,4:[152]3,"THIS IS A TEST LINE FOR THE PRINTER"
  96. 500 [143]**** STORY LINE****
  97. 7999 [128]
  98. 9000 [151] 646,6
  99. 9001 [151] 53280,7:[151] 53281,7:[153]"LOAD"
  100. 9002 [129] X[178]1 [164] 1000:[130]
  101. 9003 [143]*                 LINE RIGHT *
  102. 9005 [129] X[178]1 [164] 39
  103. 9010 [153]"SIN";
  104. 9015 [129] Y[178]1 [164] 10:[130] Y
  105. 9020 [130]
  106. 9028 [143]*                  LINE DOWN *
  107. 9030 [129] X[178]1 [164] 22
  108. 9040 [153] [163]40)"CMDCMDSIN"
  109. 9050 [129] Y[178]1 [164] 10:[130] Y
  110. 9060 [130] X
  111. 9068 [143]*                  LINE LEFT *
  112. 9070 [129] X[178]1 [164] 39
  113. 9080 [153]"CMDCMDSIN";
  114. 9090 [129] Y[178]1 [164] 10:[130] Y
  115. 9095 [130] X
  116. 9096 [153]"CMDSINCMD";
  117. 9098 [143]*                    LINE UP *
  118. 9100 [129] X[178]1 [164] 21
  119. 9110 [153] "ONSINON"
  120. 9120 [129] Y[178]1 [164] 10: [130] Y
  121. 9130 [130] X
  122. 9140 [129] D [178]1 [164] 350:[130]
  123. 9160 [153] [163]204)"SIN";
  124. 9170 [129] X[178]1 [164] 28
  125. 9175 [153] "SIN";
  126. 9180 [129] Y[178]1 [164] 10:[130] Y
  127. 9190 [130] X
  128. 9195 [153]"SIN"
  129. 9200 [153] [163]33)"SIN"
  130. 9210 [153] [163]33)"SIN"
  131. 9220 [153] [163]33)"SIN"
  132. 9230 [153] [163]33)"SIN";
  133. 9240 [129] X[178]1 [164] 30
  134. 9250 [153]"CMDSINCMD";
  135. 9255 [129] Y[178]1 [164] 10: [130] Y
  136. 9260 [130] X
  137. 9270 [129] X[178]1 [164] 3
  138. 9280 [153] "ONSINCMD";
  139. 9290 [129] Y[178]1 [164] 10:[130]
  140. 9300 [130] X
  141. 9305 [129] X[178]1 [164] 350:[130]
  142. 9310 [153] [163]46)" ANDING'S NOODLE PRESENTS"
  143. 9315 [129] X[178]1 [164] 1000:[130]
  144. 9320 [153] [163]252)" "
  145. 9325 [131] "B","A","B","Y"," ","S","T","O","R","Y"," ","#","1"
  146. 9330 [153] [163]12)"*CMD";
  147. 9335 [129] J[178]1 [164] 13
  148. 9340 [129] X[178]1 [164] 12
  149. 9350 [153]" *CMD";
  150. 9360 [129] Y[178]1 [164] 4:[130] Y
  151. 9370 [130] X
  152. 9375 [153]"CMD* CMD";
  153. 9380 [129] X[178]1 [164] 11
  154. 9390 [153]"CMDCMD* CMD";
  155. 9400 [129] Y[178]1 [164] 5:[130] Y
  156. 9410 [130] X
  157. 9415 [135] A$
  158. 9416 [153]"CMDON";A$;:[153]"";
  159. 9420 [130] J
  160. 9425 [129] Y[178]1 [164] 200:[130]
  161. 9430 [153] [163]58)"*":[129] Y[178]1 [164] 200:[130]
  162. 9440 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  163. 9450 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  164. 9460 [153] [163]18)"*":[129] Y[178]1 [164] 200:[130]
  165. 9470 [153] [163]18)"*":[129] Y[178]1 [164] 2400:[130]
  166. 9486 [153]"LOAD"
  167. 9490 [142]
  168.